home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs03.d81
/
cad.sfx
/
cmnd
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
300b
|
12 lines
1 OPEN15,D0,15,"I0"
2 CLOSE15
3 A=FRE(0)
4 A=USR(33),1:A=USR(33),2:A=USR(33),3
5 B$="B[194]C[195]D[196]E[197]F[198]I[201]L[204]M[209]P[208]R[210]WXZ[218]S[205][175][182][174][172][188]A[199]KT[167]H#=&Y[217][179][178][211][191]J[202][193][203]N"
6 FORT=1TOLEN(B$):IFA$<>MID$(B$,T,1)THENNEXT:LOAD"MENU",D0
7 IFA$="#"THENSYS36876:LOAD"MENU",D0
8 IFA$="="THENSYS36882:LOAD"MENU",D0
9 IFA$="&"THENSYS36879:LOAD"MENU",D0
10 IFA$="[209]"THENSYS64738
11 LOADA$,D0